home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1995 July / macformat-026.iso / mac / Shareware City / Games / RoboWar 4.1 Archive Folder / Robots / TimBot / TimBot
Encoding:
Text File  |  1992-03-25  |  512 b   |  27 lines  |  [RobW/RWAR]
  1. #  Tim's Robot
  2. #
  3. #   Designed by the same person
  4. #   Who, at the present, due to the presence 
  5. #   of altogether too many Electric Monks,  
  6. #   believes that he is a banana and that Dodo
  7. #   is more powerful than Mac II, thereby
  8. #   causing his programming ability to
  9. #   deteriorate.  Oh well.
  10.  
  11.     random aim' store
  12.  
  13. Main:
  14.     range 0 = rotate shoot ife
  15.     main jump
  16.  
  17. rotate:
  18.     aim 17 + aim' store
  19.     return
  20.  
  21. shoot:
  22.     energy 20 > reallyshoot if
  23.     return
  24.  
  25. reallyshoot:
  26.     energy fire' store
  27.     return